home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-02-11 | 3.7 KB | 14 lines | [TEXT/TRUE] |
- ‘C ° b Main program m:êê
- Δdžñê¿
- ¿êêêÃêÃêŒê Œê
- êŒê Œ¿¿ê
- êê
- ê
- êêêêê ΔĆÅê
- ΔdžZê
- Δdž
- ê
- êцBΔdžê ц5Δdžê
- ê
- ΔdžêцΔdžê
- Ñ†Δ Ç†ê
- ц Ñ†Δ Ç†î
- !ê
- êêê
- ц ΔÄülê ê!îWîY#à"#† ‚"ê"ä0ê#ññ J¿ƒÃΔ¡¬√√«‡ '›“√¬¬¬≈Δ»Δ≈Δƒ√…ƒ…√À¬…≈…≈√…Δ√¬¬√√Δ√¬—«¬¬¡Ä ᡨ À© ¨ Z v status v envversion v machine v sysversion v processor v hasfpu v hascolorqd v keyboardtype v atversion v sysvrefnum c 0 v everyevent c -1 v doneflag t c 4 t c 44 t t c 24 c 1 v eresult v what v mess v when v mod v wresult v mresult c 2 c 3 c 6 c 32 v i t ldrawwindow t c 12 c 10 c 20 ldrawwindow t ldomenu a1 code v menunumber c -16 v menuitem c 17 v mrefnum v z ldomenu t v noofpopitems v popitem lsetupmenus t lsetupmenus t lsetupmenus t v ascent v descent v widmax c 33 v leading c 49 v maxitemlength lsetupmenus t v strwidth ldrawpopup t v popuptop c 100 v popupleft c 200 c 5 c 13 ldrawpopup t v xlocation v ylocation c 8 ldrawpopup t ldrawpopup t v poptop lpopupevent t v popleft v result v sysenvrec$ v z$ t v r$ v dragrect$ v mywindow$ c Sample t v theevent$ v where$ v whichwindow$ v poprect$ v w$ e c True BASIC Version 2.0 PopUp Menu demo ldrawwindow t v s$ ldomenu e v name$ lsetupmenus e lsetupmenus t c DRVR c File c Quit c Edit c Cut c Copy c Paste v poptitle$ c PopUp Menu Title: